﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
if sid="Null" then
Response.Redirect "/login.asp?sid="&sidd&"&url=/game/jidao/index.asp"
else
dim id,a,b,m,shen,shu,rs,sql,i,tim
	id=Request.QueryString("id")
	if id="" then id=qingtian.nid
	if not isnumeric(id) then id=qingtian.nid
	id=clng(id)
select case v
case "0"
we0="<br/>"
hr="----------------<br/>"
%>
<card id="main" title="剪刀对战"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
ziz="<div style=""background-color:#FF5226;font-size:16px;color:#E1E100"">"
%>
<title>剪刀对战</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
qingtian.info
sangong.tj
Set Rs = Server.CreateObject("Adodb.Recordset")
sql="select [m],[shen],[shu],[nid],[time] from qingtian_reton order by [m] desc"
			Rs.Open Sql,cn,1,1
			if not (rs.bof and rs.eof)  then
                        b=rs.RecordCount
			For i=1 to rs.RecordCount
                        If Rs.Eof Then
			exit For
		        End If
                        if id=rs("nid") then
                        a=i
                        m=rs("m")
                        shen=rs("shen")
                        shu=rs("shu")
                        tim=rs("time")
                        end if
			Rs.MoveNext
			next
			end if
			Rs.close	
		        set rs=nothing
%>
<%=ziz%>★<%=qingtian.name(id)%>的成绩★<%=we0%><%=we%>
排名: <%=zi%><%=a%><%=zi0%>/<%=b%><br/>
赢局: <%=zi%><%=shen%><%=zi0%><br/>
输局: <%=zi%><%=shu%><%=zi0%><br/>
输赢: <%=zi%><%=m%><%=qingtian.bi%><%=zi0%><br/>
上次玩: <%=zi%><%=tim%><%=zi0%><%=we0%>
<%=sou%><a href="index.asp?sid=<%=sidd%>">剪刀对战</a>.<a href="/game/index.asp?sid=<%=sidd%>">游戏大厅</a><%=we0%>
<%
end if
end function
%>